home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
gdead.berkeley.edu
/
gdead.berkeley.edu.tar
/
gdead.berkeley.edu
/
pub
/
gdead
/
mac
/
stack-o-dead-1.8
/
stack-o-dead-1.8.2.sit.hqx
/
Dead Tapes
/
stack.txt
< prev
Wrap
Text File
|
1991-03-01
|
4KB
|
166 lines
-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=512 h=342
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2754
-- card count: 1
-- first card id: 3046
-- list block id: 2216
-- print block id: 3928
-- font table block id: 3444
-- style table block id: 3207
-- free block count: 0
-- free size: 0 bytes
-- total size: 18048 bytes
-- stack block size: 3584 bytes
-- created by hypercard version: 0x02018000
-- compacted by hypercard version: 0x02018000
-- modified by hypercard version: 0x02018000
-- opened by hypercard version: 0x02018000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xE1EEB0C1
----- HyperTalk script -----
on openStack
--
-- This script will ensure that the config setup happens
-- even if SOD is started by directly entering this stack
--
global soundOn, noGo
if soundOn is empty then
lock screen
push this card
-- Just going to this card sets it up via it's openCard handler
put true into noGo
go card "Dead Config" of stack "Dead Utility"
if soundOn is empty then
setDeadDefaults
end if
pop card
end if
hide message
end openStack
on setDeadDefaults
global soundOn
global soundStack
global deadDir
global defFileCreator
--
put false into soundOn
put "Dead Utility" into soundStack
put empty into deadDir
put "MACA" into defFileCreator
end setDeadDefaults
on search
push this card
go card "song search utility" of stack "Dead Utility"
end search
on shows
go stack "Dead Shows"
end shows
on showBusy
global bearNum
add 1 to bearNum
if bearNum = 9 then put 1 into bearNum
set cursor to "Bear" & bearNum
end showBusy
on playDead song
global soundStack
push this card
lock screen
if soundStack is empty then
findSoundStack
end if
go stack soundStack
if the result is empty then
playDeadSong song
end if
pop card
end playDead
on playRandomDead
global soundStack
push this card
lock screen
if soundStack is empty then
findSoundStack
end if
go stack soundStack
if the result is empty then
playRandomDeadSong
end if
pop card
end playRandomDead
-- This handler manages help text for buttons and fields
-- by taking the text from comments at the end of the scripts
--
on doHelp
set the cursor to watch
lock screen
put "Help for " & the name of the target & "..." & return & return into field "help text"
put the script of the target into theScript
--
repeat with i = 1 to the number of lines of theScript
-- showBusy
put line i of theScript into oneLine
if oneLine is empty then next repeat
if char 1 of oneLine is not "-" then exit repeat
delete char 1 to 2 of oneLine
put oneLine & return after field "help text"
end repeat
show field "help text"
unlock screen with visual effect dissolve fast
end doHelp